home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / library / rqtlsusr.lha / ReqTools / RexxReqTools / Examples / TTXARexx.lha / OpenDefinitions.ttx < prev    next >
Text File  |  1993-10-21  |  685b  |  27 lines
  1. /* $VER: OpenDefinitions.ttx 1.0 (20.02.93) */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. LastDefinitions = GetClip( 'TTX_LastDefinitions' )
  6.  
  7. IF LastDefinitions = "" THEN LastDefinitions = "TurboText:Support/"
  8.  
  9. DirName = ""
  10. Index = LastPos( '/', LastDefinitions )
  11.  
  12. IF Index = 0 THEN Index = Index( LastDefinitions, ":" )
  13.  
  14. IF Index ~= 0 THEN DO
  15.   DirName = Left( LastDefinitions, Index )
  16.   FileName = SubStr( LastDefinitions, Index + 1 )
  17. END
  18.  
  19. FileName = rtFileRequest( DirName, FileName, "Select file to open as definitions", "_Open", "RTFI_Flags=FREQF_PatGad RT_PubScrName=TURBOTEXT" )
  20.  
  21. IF rtResult = 1 THEN DO
  22.   SetClip( 'TTX_LastDefinitions', FileName )
  23.   OpenDefinitions FileName
  24. END
  25.  
  26. CALL rtFreeFileBuffer
  27.